home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / modula2 / module / storage.mod < prev    next >
Encoding:
Modula Implementation  |  1995-11-25  |  519 b   |  28 lines
  1. IMPLEMENTATION MODULE  Storage;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS,VAL;
  4. FROM GEMDOS IMPORT Alloc,Free;
  5.  
  6. PROCEDURE ALLOCATE(VAR a:ADDRESS; size :LONGCARD);
  7. BEGIN
  8.    IF Available(size) THEN
  9.       Alloc(size,a);
  10.    ELSE
  11.      a:=NIL;
  12.    END(*IF*);
  13. END ALLOCATE;
  14.  
  15. PROCEDURE DEALLOCATE(VAR a:ADDRESS);
  16. VAR done :BOOLEAN;
  17. BEGIN
  18.    done:=Free(a);
  19. END DEALLOCATE;
  20.  
  21. PROCEDURE Available(size:LONGCARD):BOOLEAN;
  22. VAR a:ADDRESS;
  23. BEGIN
  24.   Alloc(-1,a);
  25.   RETURN (VAL(LONGCARD, a)>=size);
  26. END Available;
  27. END Storage.
  28.